function Mom_Model=SubFun_IRF2Mom(PP,SS,MODEL,IRF)

Mom_Model   =   [SubFun_MaxAbsVal(IRF.Eps_Eta_M_dom.C);...
                 SubFun_MaxAbsVal(IRF.Eps_Eta_M_dom.ir)*4;...
                 SubFun_MaxAbsVal(IRF.Eps_Eta_M_dom.DevUIP)*4;...
                 SubFun_MaxAbsVal(IRF.Eps_Eta_M_dom.RelPrice);...
                 SubFun_MaxAbsVal(IRF.Eps_Eta_Y_H.ExchangeRate)/SubFun_MaxAbsVal(IRF.Eps_Eta_Y_H.C)/100;...
                 SubFun_MaxAbsVal(IRF.Eps_Eta_Y_H.Export)/SubFun_MaxAbsVal(IRF.Eps_Eta_Y_H.C)/100;...
                 SubFun_MaxAbsVal(IRF.Eps_Eta_M_dom.KI)] ...
                 *100;